100 H$=H$+"REMOVE CARTRIDGEABCDEFGHIJK"
110 DATA162,4,32,198,255,160,,32,207,255,153
120 DATA229,159,200,192,27,208,245,32,204,255,96
130 FORK=49152TOK+21:READA:POKEK,A
140 NEXT
150 DATA UNLOCK,LOCK,DELETE,MOVE,WORKING," REWRITE BAM",UNDELETE,BAR,RENAME
160 PRINT"[147]"CHR$(142)CHR$(8):POKE53281,0:PO=53280:POKEPO,0:GOSUB2010:FORK=1TO32
170 NL$=CHR$(0):EF$=EF$+NL$:NEXT:PS=1
180 FORK=1TO9:READPK$(K):NEXT:DL$(0)="":DL$(1)="[157]D"
190 BO$(0)="":BO$(1)="[154]":LK$(0)=" ":LK$(1)="L":CH$(0)=" ":CH$(1)=">"
200 DIMVT$(25),FL$(144),LK(144),D(144),CH(144),F(15),L(15):IS=1
210 VT$(1)="":FORK=1TO24:VT$(K+1)=VT$(K)+"":NEXT
220 L$="[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201][194]"
230 L$=L$+"  [154]BAM ORGANIZER  [194] [154]_[146] "
240 L$=L$+" FOR MORE OPTIONS[194][171][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][195][177][195][195][195][195][195][178][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
250 L$=L$+"[194][154]PAGE:  [194]"
260 M$(1)="[154]F-1[194][145][157][178][154]F-3[194][145][157][178][154]F-5[194][145][157][178][154]F-7[194][154] A[146]LPHABETIZE  [194]"
270 M$(1)=M$(1)+"[171][195][195][195][195][178][195][195][177][195][195][195][219][195][195][195][177][195][195][178][177][195][195][195][177][195][195][195][178][195][195][195][195][178][195][195][195][195][195][179]"
280 M$(1)=M$(1)+"[194][154]L[146]OCK[194][154]U[146]NLOCK"
290 M$(1)=M$(1)+"[194][154]D[146]EL[195][154][157][145]ETE[194][157][177][145][154]UN[146]D[195][154][157][145]ELETE"
300 M$(1)=M$(1)+"[194][154]DO[146]NE[194][154]EX[146]IT![194]"
310 M$(1)=M$(1)+"[173][195][195][195][195][177][195][195][195][195][195][195][177][195][195][195][195][195][195][195][195][195][195][195][195][177][195][195][195][195][177][195][195][195][195][195][189]"
320 VN$="B[146]AR[194][145][157][219][157][177][145][154]R[146]E[145][195][157][195][145][157][154]NAME[194][145][157][178][157][177][145][154]M[146]OVE"
330 M$(2)=LEFT$(M$(1),117)+VN$+RIGHT$(M$(1),61)
340 N$="               [194][154]_[146]  CANCEL MODE[194][171][195][195][195][195][195][195][195][177][178][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
350 N$=N$+"[219][195][195][195][195][195][195][195][178][195][195][195][195][195][195][179][194][154]T[146] TOGGLE[194][154] A[146] TOGGLE ALL [194][154] B[146] BAR [194]"
360 N$=N$+"[154]D[146]O IT![194][173][195][195][195][195][195][195][195][195][177][195][195][195][195][195][195][195][195][195][195][195][195][195][195][177][195][195][195][195][195][195][195][177][195][195][195][195][195][195][189]"
370 FORK=1TO11:C1$=C1$+NL$:NEXT
380 DA$="[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"+C1$+CHR$(131)+CHR$(18)+CHR$(1)
390 G$="               ":GOTO430
400 IFT=0THENCLOSE4:CL=1:RETURN
410 PRINT#15,"U1:";4;0;T;S:GOSUB1630:GET#4,T$,S$
420 GOSUB1630:T=ASC(T$+NL$):S=ASC(S$+NL$):RETURN
430 PRINTL$M$(1):PRINTVT$(15)"[145][145][145][145] INSERT DISK TO BE ORGANIZED IN DRIVE 8"
440 PRINT"      AND PRESS <SPACE> WHEN READY"
450 GETA$:IFA$<>" "THEN450
460 PRINT"         NOW LOADING DIRECTORY":NL$=NL$:T=18:S=0
470 OPEN15,8,15:OPEN4,8,4,"#":GOSUB400:GOSUB400
480 BF=BF+1:IFBF=9THENGOSUB400:BF=1:IFCLTHENPOKEPO,0:GOTO550
490 PRINT#15,"B-P:";4;32*(BF-1)+2:GOSUB1630
500 GET#4,A$,C$,D$:GOSUB1630:IFA$=""ANDC$=""ANDD$=""THEN480
510 P1=P1+1+255*(P1=255):POKEPO,P1:IFD$=""THEND$=NL$
520 FL=FL+1:IFASC(A$+NL$)>191THENLK(FL)=1
530 IFA$=""THENA$=NL$:D(FL)=1
540 SYS49152:GOSUB1630:FL$(FL)=H$+A$+C$+D$:GOTO480
550 P=0:MP%=(FL-1)/36:GOSUB560:GOTO630
560 FORK=24TO7STEP-1:POKE781,K:SYS59903:NEXT:FORK=0TO1
570 PRINTVT$(4)"[154]"P+1VT$(8);:FORJ=1TO18
580 FI=P*36+K*18+J:IFKTHENPRINTSPC(19)"[194]";
590 PRINTLK$(LK(FI))DL$(D(FI))CH$(CH(FI))""LEFT$(FL$(FI),16);
600 IFJ=18THENPRINT"[145]":GOTO620
610 PRINT
620 NEXT:NEXT:RETURN
630 GOSUB1880:PK=-(A$="U")-2*(A$="L")-3*(A$="D")-4*(A$="M")-5*(A$="A")
640 PK=PK-6*(A$="O")-7*(A$="N")-8*(A$="B")-9*(A$="R")
650 IFPKTHEN750
660 IFA$="X"THENPRINT"[147]":CLOSE15:GOTO1900
670 IFA$="_"THENIS=3-IS:PRINTL$M$(IS):GOTO630
680 GOSUB690:GOTO630
690 IFA$<>"[133]"THENIFA$<>"[134]"THENIFA$<>"[135]"THENIFA$<>"[136]"THENRETURN
700 Q=P:P=0*(A$="[133]")-(A$="[134]")-2*(A$="[135]")-3*(A$="[136]")
710 IFP=QTHENBO=0:GOSUB810:TU=1:RETURN
720 IFP>MP%THENP=Q:GOTO740
730 IFP<>QTHENTU=1:GOSUB560
740 RETURN:GOTO630
750 PRINTL$N$;:GOSUB760:GOTO770
760 PRINTVT$(4)"[154]"P+1G$VT$(4)SPC(16-LEN(PK$(PK))/2)"[154]"PK$(PK):RETURN
770 IFPK=5THEN1310
780 IFPK=6THEN1450
790 PS=1:LR=0:BO=1
800 GOSUB810:GOTO840
810 PRINTVT$(7+PS);:IFLRTHENPRINTSPC(20);
820 FI=P*36+LR*18+PS:PRINTLK$(LK(FI))DL$(D(FI))CH$(CH(FI))BO$(BO);
830 PRINTLEFT$(FL$(FI),16)"[146]";:RETURN
840 POKE198,0:GOSUB1880
850 IFA$<>"[145]"THEN900
860 IFP=0THENIFLR=0THENIFPS=1THEN840
870 BO=0:GOSUB810:PS=PS-1
880 IFPS=0THENPS=18:PP=P+(LR=0):LR=2-(LR+1):IFPP<PTHENP=PP:GOSUB560
890 BO=1:GOSUB810:GOTO840
900 IFA$<>""THEN950
910 IFP*36+LR*18+PS+1>FLTHEN840
920 BO=0:GOSUB810:PS=PS+1
930 IFPS=19THENPS=1:PP=P-(LR=1):LR=2-(LR+1):IFPP>PTHENP=PP:GOSUB560
940 BO=1:GOSUB810:GOTO840
950 IFA$<>""ANDA$<>"[157]"THEN980
960 IFP*36+(2-(LR+1))*18+PS>FLTHEN840
970 BO=0:GOSUB810:LR=2-(LR+1):BO=1:GOSUB810:GOTO840
980 IFA$="_"THENFORK=1TOFL:CH(K)=0:NEXT:PRINTL$M$(IS):GOTO550
990 IFA$="B"ANDPK=8THEN1720
1000 IFA$<>"T"THEN1150
1010 IFPK=9THENR$="":GOTO1760
1020 IFPK<>4THEN1070
1030 IFMV=0THENMV=FI:GOTO1070
1040 IFMV=FITHENMV=0:GOTO1070
1050 GOTO1080
1060 MV=0:GOSUB560:GOTO800
1070 CH(FI)=2-(CH(FI)+1):GOSUB810:GOTO840
1080 IFFI=MVTHENMV=0:GOTO1070
1090 Z=PK:PK=5:GOSUB760:CH(MV)=0:T1=D(MV):T=LK(MV):T$=FL$(MV)
1100 IFMV<FITHEN1130
1110 FORK=MVTOFI+1STEP-1:LK(K)=LK(K-1):FL$(K)=FL$(K-1):D(K)=D(K-1)
1120 NEXT:GOTO1140
1130 FORK=MVTOFI-2:LK(K)=LK(K+1):FL$(K)=FL$(K+1):D(K)=D(K+1):NEXT
1140 D(K)=T1:LK(K)=T:FL$(K)=T$:MV=0:PK=Z:GOSUB760:GOTO1060
1150 IFNOT(A$="A"ANDPK<4)THEN1170
1160 FORQ=1TOFL:CH(Q)=2-(CH(Q)+1):NEXT:GOSUB560:GOSUB810:GOTO840
1170 IFA$<>"D"ORPK=4THEN1290
1180 Z=PK:PK=5:GOSUB760:PK=Z:FORK=FLTO1STEP-1:D=D(K):L=LK(K)
1190 IFCH(K)=0THEN1280
1200 IFPK=7ANDDTHENDL=130:GOSUB1740
1210 IFPK=3ANDL=0ANDD=0THENDL=0:GOSUB1740
1220 IF(PK=1ANDL)OR(PK=2ANDL=0)THEN1240
1230 GOTO1280
1240 IFD(K)THEN1280
1250 LK(K)=-(PK=2):E$=FL$(K):E1=ASC(MID$(E$,28,1))
1260 FL$(K)=LEFT$(E$,27)+CHR$(E1-64*(E1<133)+64*(E1>191))
1270 FL$(K)=FL$(K)+RIGHT$(E$,2)
1280 NEXT:A$="_":GOTO980
1290 GOSUB690:IFTUTHENPS=1:LR=0:BO=1:TU=0:GOSUB810:GOTO840
1300 GOTO840
1310 T=0:S=1:BF=FL
1320 A$=FL$(INT((BF+S)/2)):K=S:J=BF
1330 IFFL$(K)<A$THENK=K+1:GOTO1330
1340 IFFL$(J)>A$THENJ=J-1:GOTO1340
1350 IFK>JTHEN1400
1360 IFK=JTHEN1390
1370 T$=FL$(K):FL$(K)=FL$(J):FL$(J)=T$:P=LK(K):LK(K)=LK(J):LK(J)=P
1380 T1=D(K):D(K)=D(J):D(J)=T1
1390 K=K+1:J=J-1:IFK<=JTHEN1330
1400 IFK>=BFTHEN1420
1410 F(T)=K:L(T)=BF:T=T+1
1420 BF=J:IFS<BFTHEN1320
1430 IFT=0THEN1860
1440 T=T-1:S=F(T):BF=L(T):GOTO1320
1450 GOSUB1710:PRINTSPC(11)"[145][145]ARE YOU SURE (Y/N)?"
1460 GOSUB1880
1470 IFA$<>"Y"ANDA$<>"N"THEN1460
1480 IFA$="N"THENPRINTL$M$(IS):GOTO550
1490 GOSUB1710:PRINTSPC(12)"[145][145]NOW REWRITING BAM":PK=5
1500 GOSUB760:T=18:S=0:OPEN4,8,4,"#":GOSUB400
1510 PRINT#15,"B-P:";4;2
1520 CT=CT+1:IFCT<145THEN1550
1530 GOSUB1710:PRINTSPC(11)"[145][145]NOW VALIDATING DISK":PRINT#15,"V"
1540 GOSUB1630:CLOSE4:CLOSE15:GOTO1900
1550 IFEFTHENPRINT#4,EF$;:GOTO1570
1560 PRINT#4,RIGHT$(FL$(CT),3)LEFT$(FL$(CT),27)"CD";
1570 IFCT=FLTHENEF=1
1580 P1=P1+1+255*(P1=255):POKEPO,P1:IFCT/8<>INT(CT/8)THEN1520
1590 LS=S+3+17*(S>15):T=18:PRINT#15,"B-P:";4,0
1600 IFEFTHENPRINT#4,NL$CHR$(255);:GOSUB1630:GOTO1620
1610 PRINT#4,CHR$(T)CHR$(LS);:GOSUB1630
1620 PRINT#15,"U2:";4;0;18;S:GOSUB1630:S=LS:GOTO1520
1630 INPUT#15,DS,DS$,TN,SN:IFDS=.THENRETURN
1640 IFDS<>26THEN1690
1650 PRINTVT$(11)SPC(10)"REMOVE W/PROTECT TAB!"
1660 PRINTSPC(10)"         &         ":PRINTSPC(13)"PRESS <RETURN>"
1670 GETA$:IFA$<>CHR$(13)THEN1670
1680 CT=0:CLOSE4:GOTO1490
1690 PRINT"[147]DRIVE ERROR...PROGRAM ABORTED":PRINT""DS;DS$TN;SN
1700 CLOSE4:CLOSE15:PRINT"PRESS A KEY...":POKE199,1:WAIT199,1:POKE198,0:RUN
1710 FORK=1TO3:PRINTVT$(10+K)SPC(9)"                       ":NEXT:RETURN
1720 IFFL=144THEN630
1730 FL=FL+1:MV=FL:LK(FL)=0:FL$(FL)=DA$:MP%=(FL-1)/36:GOTO1090
1740 D(K)=2-(D(K)+1):FL$(K)=LEFT$(FL$(K),27)+CHR$(DL)+RIGHT$(FL$(K),2)
1750 RETURN
1760 PRINT"":GOSUB1710
1770 PRINTVT$(11)SPC(13)"ENTER NEW TITLE"VT$(13)SPC(13)"_";
1780 GETA$:IFA$=""THEN1780
1790 IFA$="_"THEN1860
1800 A=ASC(A$):R=LEN(R$):IFA>31ANDA<91ANDA<>34ANDR<16THEN1870
1810 IF(A=20ORA=13)ANDR>0THEN1830
1820 GOTO1780
1830 IFA=20THENR$=LEFT$(R$,R-1):PRINT"[157][157]_ [157]";:GOTO1780
1840 IFLEN(R$)<16THENR$=R$+CHR$(160):GOTO1840
1850 FL$(FI)=R$+RIGHT$(FL$(FI),14)
1860 PRINT"[146]"L$M$(IS):GOTO550
1870 PRINT"[157]"A$"_";:R$=R$+A$:GOTO1780
1880 GETA$:IFA$=" "ORA$=CHR$(13)THENA$="T"
1885 IFA$=""THEN1880
1890 RETURN
1900 PRINT"[147][158]"
1910 PRINT"     [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1920 PRINT"     [221][159] DO YOU WANT TO EXIT? (Y/N)[158] [221]"
1930 PRINT"[158]     [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
1940 GETA$:IFA$<>"Y"ANDA$<>"N"THEN1940
1950 IFA$="N"THENRUN
1960 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
1970 IF ER<>63 THEN PRINT"[147]":END
1980 A$="HELLO CONNECT":Q$=CHR$(34):POKE53281,7:POKE53280,7:PRINT"[147]"
1990 PRINT"[158]LOAD"Q$A$Q$",8"
2000 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
2010 POKE214,15:PRINT:PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
2020 FORI=1TO3:PRINT"                                      ":NEXT
2030 PRINT"        PUBLISHED ON LOADSTAR #58     "
2040 PRINT"      SUBSCRIPTIONS 1-800-831-2694    "
2050 PRINT"     CHANGING THIS NOTICE IS ILLEGAL  "
2060 PRINT"                                      "
2070 PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
2080 AU$="BAM ORGANIZER":POKE214,17:PRINT:PRINTSPC(20-LEN(AU$)/2)"[152]"AU$
2090 AU$="BY CLIFFORD DEDMORE  (C) 1988":POKE214,18:PRINT
2100 PRINTSPC(20-LEN(AU$)/2)"[152]"AU$"":RETURN